# NOT RUN {
# you have to have apiKey to execute these examples
library(scales)
library(ggplot2)
prognoza <- getWeatherForecast(apiKey, city='Warsaw')
ggplot(prognoza$by.hour, aes(y=temperatureCelsius, x=time)) +
geom_line() + geom_point() +
geom_point(data=prognoza$now, size=10, color='red') +
theme(title=element_text(size=20),
axis.text=element_text(size=20)) +
scale_x_datetime(breaks = date_breaks("3 hour"),
minor_breaks = date_breaks("1 hour"),
labels = date_format("<!-- %H:00\n %d/%m")) + -->
ylab("") + xlab("") + ggtitle("Prognoza temperatury dla Warszawy")
# }
Run the code above in your browser using DataLab